home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SCB 4.0.cpt / Script Cat Burglar 4.0 / card_7844.txt < prev    next >
Text File  |  1988-03-21  |  3KB  |  66 lines
  1. -- card: 7844 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2227
  5. -- name: MakeButton - Goodman
  6.  
  7.  
  8. -- part contents for background part 15
  9. ----- text -----
  10. This stack was designed by     Philip A. Mohr, Jr.    4405 N. Rosemead    Rosemead, CA 91770
  11.  
  12. -- part contents for background part 67
  13. ----- text -----
  14. Hide Notes
  15.  
  16. -- part contents for background part 68
  17. ----- text -----
  18. 7844
  19.  
  20. -- part contents for background part 58
  21. ----- text -----
  22. on makeButton
  23.   put the short name of this stack into stackName
  24.   go card "My Stacks" of "Home"
  25.   set lockScreen to true
  26.   doMenu "New Button"
  27.   Set rect of button "New Button" to 200,100, 280,160
  28.   Set Icon of button "New Button" to 1000
  29.   Set showName of button "New Button" to true
  30.   set style of button "New button" to transparent
  31.   set name of button "New Button" to stackName
  32.   put "on mouseUp" into newScript
  33.   put "go to" && the short name of the target into line 2 of newScript
  34.   -- This isn't what I get, Goodman
  35.   put "end mouseUp" into line 3 of newScript
  36.   Set Script of button stackName to newScript
  37.   Put "Now drag the button" & ¬¨
  38.        "to the desired location...and type Command-Tab"
  39. end makeButton
  40.  
  41.  
  42.  
  43. -- part contents for background part 2
  44. ----- text -----
  45. MakeButton - Goodman
  46.  
  47. -- part contents for background part 3
  48. ----- text -----
  49. Goodman's book
  50.  
  51. -- part contents for background part 13
  52. ----- text -----
  53. Home Stack
  54.  
  55. -- part contents for background part 14
  56. ----- text -----
  57. (Untested)
  58. "Each time you create a new HC Stack, it is helpful to have a Home Stack button created so you can go to that stack easily. That way, you won't have to try and find the stack with the Open Stack...method. Here's a suggestion:
  59. "In your Home Stack, make a new card immediately after the Home card. Name it "My Stacks," both in the card name property (using the card info... dialog box) and in the title field at the top of the card...
  60. "Then add the following handler to your Home Stack script. Use it by typing makeButton into the Message Box while in the new stack you're making. The handler makes a button of whatever stack you're in and places it in this My Stacks card of the Home Stack. It leaves the Button tool selected so you can drag the button to an empty spot on the card. The nextt ime you wish to go to that stack, simply click on the button." -- Goodman, P. 602
  61.  
  62. I probably read this months ago, but it wasn't until afterI had 90% of what you see here done that I ran across this page of the book again. An unconscious memory of it and scripts that do someting similar probably prompted my decision to make the attempt at stack building.
  63.  
  64. -- part contents for background part 73
  65. ----- text -----
  66. Before I can do that, you   need to give the script   a name.  Sorry.  Try again.